home *** CD-ROM | disk | FTP | other *** search
/ Night Owl 6 / Night Owl's Shareware - PDSI-006 - Night Owl Corp (1990).iso / 001a / boymks5e.zip / WILDCAT.BSC < prev   
Text File  |  1991-09-11  |  3KB  |  99 lines
  1. \\ Wildcat system
  2.  
  3. \\ The first part of this script is for setting variables, and calling
  4. \\ different blocks contained in the script.  \BL block calls
  5. \\ Currently the script is set to log you on.  If you remove the \\
  6. \\ slashes from the begining of the \bl commands it would enter the TCat
  7. \\ door ( Number of the door is set with \SV2[]) and get mail.
  8.  
  9. \TO[40]                       \\ sets WaitFor timeout to 40 seconds
  10. |logon
  11. \\ld+                         \\ log to disk set to off.
  12. \sv1[shopper.rep]
  13. \SV2[1]                                      \\ enter Mail door number [#]
  14. \sv4[shopper.qwk]                            \\ enter massage .QWk filename [#]
  15. \svb[10]
  16. \BL[NAME]\dm[Starting to log name onto %SN]
  17. \BL[QUEST]\dm[Starting Quest block]     ║       ║
  18. \\bl[mail]\dm[Starting Mail block]
  19. \\FE+%U:%V1[\bl[tcmailup]]]\dm[Starting to do Mail Upload]
  20. \\bl[tcmaildn]\dm[Starting to do Mail Dnload]
  21. \\BL[FILES]\dm[Scaning for new files]
  22. \\FE+%U:%V5[\bl[upload]]\dm[Starting file upload]
  23. \\FE-%D:%V9[\bl[download]]\dm[Starting file dnload]
  24. \\BL[Logoff]\dm[Getting ready to logoff]
  25. \eb
  26.  
  27. |name
  28. \wp[1]  \DM[Connected to %SN ]
  29. \if+onStop:[\gb[name]]
  30. \IF+First Name? [\! \@{\gb[name]]
  31. \iF+please try again.[\#~{~\eb]
  32. \IF+Password:[\#~{~~\eb]
  33. \pa[5]\gb[name]
  34. \eb
  35.  
  36. |quest
  37. \DM[ running quest block]                      \\ this is a looping block.
  38. \IF+Enter door number[%V2{\eb]
  39. \IF+BIRTH DATE  MM-DD-YY[09-08-54{\gb[quest]]  \\ enter date of birth here
  40. \IF+VOICE Phone Number[XXX-XXX-XXXX{\gb[quest]]\\phone number here
  41. \IF+Correct "[Y/n"][y{\gb[quest]]
  42. \if+Enter door number "[1..9"][9{\eb]
  43. \if+"[S"]top, "[N"]onstop:[S{\gb[quest]]
  44. \IF+"[ENTER"] to quit:[{\gb[quest]]
  45. \IF+to view it "[Y/n"[n{\gb[quest]]
  46. \IF+"[ENTER"] to continue[{\gb[quest]]
  47. \IF+Command >>[\pa[2]d{\eb]  \\[quest]]       \\  modify if not getting mail
  48. \IF+MAIN MENU [\pa[2]d{\gb[quest]]            \\  modify if not getting mail
  49. \if+onStop:[{\gb[quest]
  50. \if+like to view it"[Y/n"][n{\gb[quest]]
  51. \if+to Quit[{\gb[quest]
  52. \if+Would you like to view it"[Y/n"][n{\gb[quest]]
  53. \iF+"[ENTER"] to continue.[{\gb[quest]]
  54. \if+Door [%V2{\eb]
  55. \pa[2]{\gb[quest]                             \\ this line responds enter
  56.                                               \\ and continues with script.
  57.  
  58. |mail
  59. \IF+Enter door number[%V2{\eb]
  60. \\WF[ Q L Y S U D N G H ? T"]:]d{
  61. \WF[ menu, "[ENTER"] to Quit]%V2{
  62. \eb
  63.  
  64.  
  65.  
  66. \FE+%U:%V1[\bl[tcmailup]]]\dm[Starting to do Mail Upload]
  67. \bl[tcmaildn]\dm[Starting to do Mail Dnload]
  68. |tcmailup
  69. \WF[MENU "[C D U H G Q ?"]]u{
  70. \wf[B01]\ulZ[%V1]
  71. \it+[\dc-[copy %u:%v1 %U:1%V1]]
  72. \IT+[\DC-[del %U:%V1]]
  73. \eb
  74.  
  75. |tcmaildn
  76. \WF[MENU "[C D U H G Q ?"]]D{
  77. \to[95]
  78. \WF[G"]oodbye after transfer?]Y{
  79. \sc[script;renfile]
  80. \\dc-[copy %d:%v4 %d:1%v4]
  81. \\dc-[del %d:%v4]
  82. \to[255]
  83. \wf[B00]\dlz-[%V4]
  84. \wf[TOMCAT MENU "[C D U H G Q]G{\pa[5]\ab
  85. \eb
  86.  
  87. |logoff
  88. \wp[]g{atz{~~~~\ab
  89. \IF+AT MENU "[C D U H G Q [G{\gb[logoff]]
  90. \if+wish to log off "[Y/n"] [y{\eb]
  91. \If+onStop:[{\gb[logoff]]
  92. {\ld-
  93. \eb
  94.  
  95.  
  96.  
  97.  
  98.  
  99.